COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00003 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC EXAMP.FUN[INS,MUS];		< Get functions from EXAMP.FUN[INS,MUS]
FUNC ADD.FUN;
COMMON TOOT,CLAR,ZZZZ;
*

REVRB 0 0 1;				< One "note" only
P2 6;					< should be at least 2-3" longer than
END;					<   total of all instruments

TOOT;
P2 RHY/8/16//4/FINE;
P3 NOT/G4/A/B/C5;			< G4 = G above middle C
P4 .5;					< maximum amplitude
P5 F1;					< amplitude function
P6 F6;					< waveform ("SYNTH") function
P7 .05;					< percentage (0 ↔ 1) of reverberation
P17 0;
END;
CLAR;
DUPL 2;
P3 "P3*5";
P5 F12;
END;
ZZZZ;
DUPL 2;
P3 "P3*7/5";
P5 F11;
P17 1;
P18 "P3/2";
P19 FUN/4/5;
END;